Sub Macro1()
    Range("A1:C1").Value = Array("Abv", "IW", "")
    Range("B1").Clear
    Range("C1").Select
End Sub
